home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / smon teil2.lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  69 lines
  1. 10 rem **************************
  2. 20 rem *                        *
  3. 30 rem *    smon teil 3 + 4     *
  4. 40 rem * von n.mann & d.weineck *
  5. 50 rem *     fleetrade 40       *
  6. 60 rem *     2800 bremen        *
  7. 70 rem *   tel. 0421 / 493090   *
  8. 80 rem *        0421 / 231401   *
  9. 90 rem *                        *
  10. 100 rem **************************
  11. 110 fori=0to2:reada:pr(i)=a:next
  12. 120 sa=51261:i=0
  13. 130 pa=sa+256*i:ch=0
  14. 140 forj=0to255:reada:pokepa+j,a:ch=ch+a:next
  15. 150 remifch<>pr(i)then200
  16. 160 i=i+1:ifi<2then130
  17. 170 pa=pa+256:ch=0
  18. 180 forj=0to121:reada:pokepa+j,a:ch=ch+a:next
  19. 190 ifch=pr(i)thenend
  20. 200 print"fehler in block"i+1:end
  21. 210 rem
  22. 220 rem *** blockpruefsummen ***
  23. 230 rem
  24. 240 data34652,35523,16258
  25. 250 rem
  26. 260 rem *** block 1 ***
  27. 270 rem
  28. 280 data32,141,194,141,175,2,96,32,141,194,141,176,2,96,76,209,194,160,2,132
  29. 290 data188,136,132,185,132,187,136,132,183,32,202,194,201,34,208,234,32,202
  30. 300 data194,145,187,200,230,183,201,34,208,244,198,183,173,176,2,133,186,165
  31. 310 data172,201,83,240,19,32,194,194,240,9,162,195,32,128,194,169,0,133,185
  32. 320 data169,0,108,48,3,162,193,32,128,194,162,174,32,128,194,108,50,3,32,126
  33. 330 data194,32,202,194,73,2,74,74,8,32,128,194,32,81,195,40,176,12,165,253
  34. 340 data101,251,170,165,254,101,252,56,176,9,165,251,229,253,170,165,252,229
  35. 350 data254,168,138,132,252,133,251,132,98,133,99,8,169,0,133,211,32,117,198
  36. 360 data165,252,208,15,32,73,195,165,251,32,42,195,165,251,32,208,195,240,3
  37. 370 data32,35,195,32,76,195,162,144,165,1,141,177,2,169,55,133,1,40,32,73,188
  38. 380 data32,221,189,174,177,2,134,1,76,86,195,32,141,194,170,164,211,177,209
  39. 390 data73,32,240,163,138,168,32,154,194,56,176,169,32,184,194,160,8,72,32
  40. 400 data202,194,201,49,104,42,136,208,245,240,235,32,184,194,162,0,138,134
  41. 410 data251,133,252,168,32,207,255,201
  42. 420 rem
  43. 430 rem *** block 2 ***
  44. 440 rem
  45. 450 data58,176,132,233,47,176,4,56,76,196,200,133,253,6,251,38,252,165,252
  46. 460 data133,254,165,251,10,38,254,10,38,254,24,101,251,8,24,101,253,170,165
  47. 470 data254,101,252,40,105,0,76,52,201,32,122,194,169,55,133,1,162,4,189,135
  48. 480 data192,149,170,202,16,248,32,81,195,166,170,165,171,32,205,189,230,170
  49. 490 data208,2,230,171,169,68,32,210,255,169,193,32,210,255,160,0,177,251,132
  50. 500 data98,133,99,32,209,189,32,99,196,162,3,176,10,169,44,166,211,224,73,144
  51. 510 data227,162,9,134,198,189,125,192,157,118,2,202,208,247,76,110,195,32,122
  52. 520 data194,32,141,194,162,0,129,251,72,32,99,196,104,144,247,96,32,90,194
  53. 530 data165,166,208,2,198,167,198,166,32,48,202,134,181,160,2,144,4,162,2,160
  54. 540 data0,24,165,166,101,174,133,170,165,167,101,175,133,171,161,164,129,168
  55. 550 data65,168,5,181,133,181,165,164,197,166,165,165,229,167,176,29,24,181
  56. 560 data164,121,107,192,149,164,181,165,121,108,192,149,165,138,24,105,4,170
  57. 570 data201,7,144,232,233,8,170,176,207,165,181,240,15,76,209,194,56,162,254
  58. 580 data181,170,245,166,149,176,232,208,247,96
  59. 590 rem
  60. 600 rem *** block 3 ***
  61. 610 rem
  62. 620 data32,98,202,76,214,201,76,98,202,197,167,208,2,228,166,176,19,197,165
  63. 630 data208,2,228,164,144,11,133,180,138,24,101,174,170,165,180,101,175,96
  64. 640 data32,90,194,32,122,194,32,48,202,32,203,196,200,169,16,36,171,240,38
  65. 650 data166,251,165,252,32,70,202,134,170,177,251,133,181,32,74,197,160,1,32
  66. 660 data70,202,202,138,24,229,170,145,251,69,181,16,25,32,81,195,32,35,195
  67. 670 data36,171,16,15,177,251,170,200,177,251,32,70,202,145,251,138,136,145
  68. 680 data251,32,106,198,32,102,196,144,181,96
  69.